home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / tool / mmlc / sample3.m2 < prev   
Text File  |  1995-02-07  |  2KB  |  103 lines
  1. /* 
  2.    Seaside Feeling ***************************************
  3.                                                          */
  4. // ------------------- part
  5.  
  6. #define Melody    1[0]
  7. #define Organ    2[0]
  8. #define WaveL    3[0]
  9. #define WaveR    4[0]
  10.  
  11. // ------------------- pattern
  12.  
  13. #define WavePat1    o4 c1^1 c1^1
  14. #define WavePat2    o4 r1 c1^1 r1
  15.  
  16. //
  17.  
  18. #define GMSYSON    @x[7e7f0901]
  19. #define PAN    @c10/
  20. #define EFFECT1    @c91/
  21. #define EFFECT3    @c93/
  22.  
  23. .title Seaside Feeling
  24. .copyright YamaShiN
  25.  
  26. .memo module:GM/GS(SC55mk2)
  27.  
  28. .tempo 106
  29. .signature 4/4
  30.  
  31. .begin
  32.  
  33. Setup()
  34. {
  35.  $Melody=$GMSYSON r1 $EFFECT1 90 $EFFECT3 50 $PAN64 @1 q7 v15;
  36.  $Organ =r1 $EFFECT1 40 $EFFECT3 70 $PAN64 @19 q8 v8; 
  37.  $WaveL =r1 $EFFECT1 40 $EFFECT3 40 $PAN0 @123 q8 v5];
  38.  $WaveR =r1 $EFFECT1 40 $EFFECT3 40 $PAN127 @123 q8 v6;
  39. }
  40. Intro()
  41. {
  42.  $WaveL =$WavePat1 $WavePat2;
  43.  $WaveR =$WavePat2 $WavePat1;
  44. }
  45. type A()
  46. {
  47.  $Melody=o4l16 >d+8d+8d+8d+4<r8b4>c+1 d+8d+8d+8d+4<r8b4>c+1<;
  48.  $Organ =o4l1(eeee |g#g#g#g# | baba | >d+c+d+c+<);
  49.  $WaveL =$WavePat1;
  50.  $WaveR =$WavePat2;
  51. }
  52. type B()
  53. {
  54.  $Melody=>e8e8e8e4r8 c+4d+1 e2.f+4d+1<;
  55.  $Organ =(f#f#f#f# | aaaa | >c#<b>c#<b | >ed#ed#<);
  56.  $WaveL =$WavePat2;
  57.  $WaveR =$WavePat1;
  58. }
  59. type A()
  60. {
  61.  $Melody=o4l16 >d+8d+8d+8d+4<r8b4>c+1 d+8d+8d+8d+4<r8b4>c+1<;
  62.  $Organ =o4l1(eeee |g#g#g#g# | baba | >d+c+d+c+<);
  63.  $WaveL =$WavePat1;
  64.  $WaveR =$WavePat2;
  65. }
  66. type B()
  67. {
  68.  $Melody=>e8e8e8e4r8 c+4d+1 e8e8e8e4r8 c+4f+1<;
  69.  $Organ =(f#f#f#f# | aaaa | >c#<b>c#<b | >ed#ed#<);
  70.  $WaveL =$WavePat2;
  71.  $WaveR =$WavePat1;
  72. }
  73. type C()
  74. {
  75.  $Melody=>f#8f#8f#8f#4r8 d#4e1  f#8f#8f#8f#4r8 d#4e1<;
  76.  $Organ =(g#g#g#g# | bbbb | >d#c#d#c#< | >f#ef#e<);
  77.  $WaveL =$WavePat1;
  78.  $WaveR =$WavePat2;
  79. }
  80. type B()
  81. {
  82.  $Melody=>e2.f#4d#1 e2.f#8g#8d#1<;
  83.  $Organ =(f#f#f#f# | aaaa | >c#<b>c#<b | >ed#ed#<);
  84.  $WaveL =$WavePat2;
  85.  $WaveR =$WavePat1;
  86. }
  87. type A()
  88. {
  89.  $Melody=$([[>d+8d+8d+8d+4<r8b4>c+1 [d+8d+8d+8d+4<r8b4>c+1<)4;
  90.  $Organ =$(([ee[ee]] | [g+g+[g+g+]] | [ba[ba]] | [>d+c+[d+c+<))4;
  91.  $WaveL =$WavePat1 $WavePat2 $WavePat1 $WavePat2;
  92.  $WaveR =$WavePat2 $WavePat1 $WavePat2 $WavePat1;
  93. }
  94.  
  95. Ending()
  96. {
  97.  $WaveL =$WavePat1;
  98.  $WaveR =$WavePat2;
  99. }
  100.  
  101.  
  102. /* ------------------------------------ 1994/7 1995/1--- */
  103.